Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/aviwin/form1.frm

Text File | 1995-05-08 | 4KB | 151 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "AVI Viewer"
   ClientHeight    =   4020
   ClientLeft      =   1095
   ClientTop       =   1770
   ClientWidth     =   7365
   Height          =   4710
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   4020
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
   Begin FileListBox File1
      Height          =   1785
      Left            =   5775
      TabIndex        =   7
      Top             =   315
      Width           =   1485
   End
   Begin DriveListBox Drive1
      Height          =   315
      Left            =   3990
      TabIndex        =   6
      Top             =   2310
      Width           =   3270
   End
   Begin DirListBox Dir1
      Height          =   1830
      Left            =   3990
      TabIndex        =   5
      Top             =   315
      Width           =   1590
   End
   Begin CommandButton Command3
      Caption         =   "Pause"
      Height          =   435
      Left            =   1575
      TabIndex        =   4
      Top             =   3045
      Width           =   750
   End
   Begin PictureBox MMControl1
      BackColor       =   &H000000FF&
      Height          =   1000
      Left            =   0
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   3
      Top             =   0
      Width           =   1000
   End
   Begin CommandButton Command2
      Caption         =   "Stop"
      Height          =   435
      Left            =   2415
      TabIndex        =   0
      Top             =   3045
      Width           =   750
   End
   Begin CommandButton Command1
      Caption         =   "Play"
      Height          =   435
      Left            =   735
      TabIndex        =   1
      Top             =   3045
      Width           =   750
   End
   Begin PictureBox Picture1
      Height          =   2325
      Left            =   210
      ScaleHeight     =   2295
      ScaleWidth      =   3450
      TabIndex        =   2
      Top             =   315
      Width           =   3480
   End
   Begin Label Label1
      Caption         =   "Search: *.AVI"
      Height          =   225
      Left            =   6090
      TabIndex        =   8
      Top             =   105
      Width           =   1170
   End
   Begin Menu mnuAbout
      Caption         =   "About"
      Begin Menu mnuAVIView
         Caption         =   "About AVI Viewer..."
      End
   End
End
Declare Function mciSendString Lib "mmsystem" (ByVal lpstrCommand$, ByVal lpstrReturnStr As Any, ByVal wReturnLen%, ByVal hCallBack%) As Long

Sub Command1_Click ()
    MMControl1.FileName = File1.Path & "\" & File1
    MMControl1.Command = "Open"

    'Put window handle in CmdStr$
    CmdStr$ = "window " + MMControl1.FileName + " handle " + Format$(picture1.hWnd)
    'Send window handle to mciSendString
    ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
    'Put output in window
    CmdStr$ = "put " + MMControl1.FileName + " destination "
    ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)

    MMControl1.Command = "Prev"
    MMControl1.Command = "Play"
End Sub

Sub Command2_Click ()
    MMControl1.Command = "Stop"
End Sub

Sub Command3_Click ()
    MMControl1.Command = "Pause"
End Sub

Sub Dir1_Change ()
    File1.Path = Dir1.Path
End Sub

Sub Drive1_Change ()
    Dir1.Path = Drive1.Drive
End Sub

Sub File1_Click ()
    MMControl1.Command = "Close"
    MMControl1.FileName = File1.Path & "\" & File1
End Sub

Sub File1_DblClick ()
    MMControl1.Command = "Close"
    MMControl1.FileName = File1.Path & "\" & File1
    Command1.Value = True
End Sub

Sub Form_Load ()
    File1.Pattern = "*.AVI"
    MMControl1.Notify = False
    MMControl1.Wait = True
    MMControl1.Shareable = False
    MMControl1.DeviceType = "AVIVideo"
End Sub

Sub mnuAVIView_Click ()
    MsgBox "AVI Viewer by Dustin Callaway" + Chr(10) + "CompuServe ID# 72154,2326", 64, "About AVI Viewer"
End Sub